(rmail-reply): Handle empty folders.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 2b860df5e693ea432a5442435a6eb2b1f2dd7b77..789ecd484d6ae9f178899d98f7fdf1a8c3d1a641 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -3282,6 +3282,8 @@ Normally include CC: to all other recipients of original message;
 prefix argument means ignore them.  While composing the reply,
 use \\[mail-yank-original] to yank the original message into it."
   (interactive "P")
+  (if (zerop rmail-current-message)
+      (error "There is no message to reply to"))
   (let (from reply-to cc subject date to message-id references
             resent-to resent-cc resent-reply-to
             (msgnum rmail-current-message))